home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 1 (Walnut Creek)
/
Aminet - June 1993 [Walnut Creek].iso
/
aminet
/
dev
/
lang
/
sbp3_1e.lzh
/
STRUCTUR.PL
< prev
next >
Wrap
Text File
|
1991-10-31
|
1KB
|
38 lines
/* From the book PROLOG PROGRAMMING IN DEPTH
by Michael A. Covington, Donald Nute, and Andre Vellino.
Copyright 1988 Scott, Foresman & Co.
Non-commercial distribution of this file is permitted. */
/* Modified for Quintus Prolog by Andreas Siebert */
/* STRUCTUR.PL */
/* Queries will use built-in predicate phrase/2 */
/* This parser implements the same grammar
as PARSER2.PL, but builds a representation
of the parse tree while parsing. */
sentence(sentence(X,Y)) -->
noun_phrase(X), verb_phrase(Y).
noun_phrase(noun_phrase(X,Y)) -->
determiner(X), noun(Y).
verb_phrase(verb_phrase(X,Y)) -->
verb(X), noun_phrase(Y).
verb_phrase(verb_phrase(X,Y)) -->
verb(X), sentence(Y).
determiner(determiner(the)) --> [the].
determiner(determiner(a)) --> [a].
noun(noun(dog)) --> [dog].
noun(noun(cat)) --> [cat].
noun(noun(boy)) --> [boy].
noun(noun(girl)) --> [girl].
verb(verb(chased)) --> [chased].
verb(verb(saw)) --> [saw].
verb(verb(said)) --> [said].
verb(verb(believed)) --> [believed].